home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / 3d_vb / form2.frm < prev    next >
Text File  |  1995-09-06  |  3KB  |  103 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Form2"
  6.    ClientHeight    =   4020
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   5925
  10.    ControlBox      =   0   'False
  11.    Height          =   4425
  12.    Left            =   1035
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form2"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   4020
  18.    ScaleWidth      =   5925
  19.    Top             =   1140
  20.    Visible         =   0   'False
  21.    Width           =   6045
  22.    Begin CommandButton Command1 
  23.       Caption         =   "OK"
  24.       Height          =   375
  25.       Left            =   2280
  26.       TabIndex        =   0
  27.       Top             =   3480
  28.       Width           =   1455
  29.    End
  30.    Begin PictureBox Picture1 
  31.       BackColor       =   &H00C0C0C0&
  32.       BorderStyle     =   0  'None
  33.       Height          =   855
  34.       Left            =   2520
  35.       ScaleHeight     =   855
  36.       ScaleWidth      =   3135
  37.       TabIndex        =   1
  38.       Top             =   240
  39.       Width           =   3135
  40.    End
  41.    Begin Label Label1 
  42.       BackColor       =   &H00C0C0C0&
  43.       Height          =   1815
  44.       Left            =   240
  45.       TabIndex        =   2
  46.       Top             =   1440
  47.       Width           =   5415
  48.    End
  49. End
  50. Dim CR$
  51.  
  52. Sub Command1_Click ()
  53. Form2.Line (0, 0)-(Form2.ScaleWidth, Form2.ScaleHeight), &HC0C0C0, BF
  54. Unload Form2
  55. End Sub
  56.  
  57. Sub Form_Load ()
  58. CR$ = Chr$(10) + Chr$(13)
  59. Screen.MousePointer = 11
  60. Select Case Action
  61.  
  62. Case 4
  63.     Form2.Caption = "3-D4VB"
  64.     Form2.AutoRedraw = True
  65.     FormBorder Form2
  66.     EtchedFrmText Form2, "This is FormBorder", 200, 200, BLUE
  67.     BorderBoxOnFrm Label1, Form2
  68.     Form2.AutoRedraw = False
  69.     Picture1.AutoRedraw = True
  70.     LabelInBox Picture1, "3-D4VB is AOK!", 2, 1, BLUE, RAISED
  71.     ShadowPicFrame Picture1, 1
  72.     Text$ = "More than 20 functions included and more on the way!"
  73.     Text$ = Text$ + " Make your programs look great!"
  74.     Text$ = Text$ + " At less than $.50 a routine, 3-D4VB won't cost you an arm and a leg either! It's almost free..."
  75.     Text$ = Text$ + " It's sure to save you hours of time and effort." + CR$
  76.     Label1.Caption = Text$
  77.     Picture1.FontSize = 18
  78.     Picture1.AutoRedraw = False
  79. Case 11
  80.     Form2.Caption = "3-D4VB"
  81.     Form2.AutoRedraw = True
  82.     RaisedFormEdge Form2
  83.     Picture1.FontSize = 18
  84.     EtchedFrmText Form2, "This is Raised Form Edge", 200, 200, BLUE
  85.     BorderBoxOnFrm Label1, Form2
  86.     Form2.AutoRedraw = False
  87.     Picture1.AutoRedraw = True
  88.     LabelInBox Picture1, "3-D4VB is AOK!", 2, 1, BLUE, RAISED
  89.     ShadowPicFrame Picture1, 1
  90.     Text$ = "3-D4VB includes routines to make your own button controls with any icon or "
  91.     Text$ = Text$ + " bitmap you want to use. All routines can be modified to suit your taste!" + CR$ + CR$
  92.     Text$ = Text$ + "Send your check for $10.00 to:" + CR$
  93.     Text$ = Text$ + "     LAN Services" + CR$
  94.     Text$ = Text$ + "     219-P Berlin Road, Suite 261" + CR$
  95.     Text$ = Text$ + "     Cherry Hill, New Jersey  08034" + CR$
  96.     Text$ = Text$ + "     (609) 428-3633"
  97.     Label1.Caption = Text$
  98.     Picture1.AutoRedraw = False
  99. End Select
  100. Screen.MousePointer = 0
  101. End Sub
  102.  
  103.